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**F I LE**1D**WFREPLIN 


M13 
EDTSWFREPLIN = replace the current Line 16-Sep-1984 t 98: }3: 93 VAX- 


“1 $-32 V4.0-76 1 
14-Sep-1984 Disks PT a1) 


18 
vNeh TER: CEDT.SRCJWFREPLIN.BLI;1 (1 


} meee I the current Li 


ne 
File: W FREP LIN.BLI Edit: JBS1008 


ZTITLE "EDTSW ods gh - replace the current Line‘ 
n MODULE EDTSWFREPLIN ( 
oe = ‘v04-000' 
= 


oo 
S332 


: : 
- | 
: 5 : 1¢ BEGIN 

: ? 4 ! MNES REA apenas eg 

3 'e * 

s G $09 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

; 10 010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

3 1} Bt : i. ALL RIGHTS RESERVED. * 

Py 3 7 

: ig gig 1 !* THIS SOFTWARE IS gh a UNDER A LICENSE AND MAY BE USED AND ag ht * 

3 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tit AND WITH THE * 

H 15 0015 1 i INCLUSION OF THE ABOVE se re aciben OTICE. THIS SOFTWARE OR ANY OTHER * 

3 16 opi8 1 !* COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 17 001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 18 id } :* TRANSFERRED. * 

: I} © 

HY 20 boss 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

4 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $§ 8058 ; ‘* CORPORATION. * 

° .7 Y 

: 36 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 

: $2 oo ? : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 

a 0027 1 is . 

3 $8 BoS8 : aaa cea latencies 

; 50 0030 1 

: 1 0031 1 !+4+ 

3 $$ 00 ¢ 1! FACILITY: EDT -- The DEC Standard Editor 

3 0033 1: 

; 4 0034 1 | ABSTRACT: 

; 5 0035 1: 

; $ it) ! Replace the current Line with a specified Line. 

; 3 4 : ENVIRONMENT: Runs at any access mode - AST reentrant 

3 40 0040 AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

: 42 004g 1 ' MODIFIED BY: 

; 643 0043 1! 

: (44 00464 1 | 1-001 - Original. DJS 23-Feb-1981. This module was ropeeted by 

: 65 0045 1! extracting routine EDTSS$RPL N from module EDTWF. 

: 8446 Ode6 1! 1-008 - Regularize headers. JBS 7 mar=198) 

3; «(47 0047 1 | 1-003 - Change index for Line nuabers from 10 to 15. SMB 18-Jan-1982 

; «648 nk 1 | 1-004 - Remove original Line numbers. SMB 2 28-Jan-1982 

; «649 049 1 ! 1-005 = Do most replaces without doing Colete/ insert. to impr 

; Oo 50 1! per formance ra tehly, yhen updati ng the Screen. att: “oa-0ct -1982 

; 31 051 1 ! 1-006 - Preserve EDT$$A_SE POS if we pust & gator ete and then insert. JBS 09-Nov-1982 
; 2g O2¢ 1 ' 1-007 - nag t disturb the screen TT. must delete and then insert. JBS 01-Dec-1982 
3 5 0053 1! 1-008 - No longer need to decrement aogier WK INSCNT: now done by GO rSSOEL CURLN. JBS OB {June 1983 
3 33 0035 : i. 1-009 = Remove edit 1-008 : too many side effects. JBS 01-Jun-198 

: 56 056 1 


N 13 
ECTSWFREPLIN EDTSWFREPLIN = replace the current Line 16-Sep-1984 02:13:0 VAX-11 Bliss-32 V4.0-74 Page 
thet Declarations . aati ae ts 1 95:33:03 WT EKSVMEMASTERSCEOT SC TUFREPLIN.BLIn}” (8 
3 28 B38 } XSBTTL ‘Declarations’ 
3 60 § 1 ! TABLE OF CONTENTS: 
3 6) » ! ! 
; e§ ¢ : REQUIRE ‘EDTSRC: TRAROUNAM'; 
; 8 1 FORWARD ROUTINE 
; $8 : EDTSSRPL_LN : NOVALUE; | 
; 2 506 1 i INCLUDE FILES 
3 0 2 $ 1! 
oie 508 1 
3 7 509 1 REQUIRE ‘EDTSRC:EDTREQ'; 
: 7 44 1 
eo ie BE 
3 75 ong 1 ! MACROS: 
; 647 1! 
.- iy 648 1! NONE 
3 78 0649 1! 
$ 79 0650 1 ! EQUATED SYMBOLS: 
; 80 0651 1! 
s 81 8936 1! NONE 
3 a 0653 1! 
3 8 0654 1 ! OWN STORAGE: 
;s 84 0655 1! 
; @ 0656 1! NONE 
3 86 0657 1! 
: 87 934 1 ! EXTERNAL REFERENCES: 
: 88 0659 1! 
; «89 0660 1! In the routine 


aL tN . feplece the current tine 1f$e0-1 984 93:38:23 Disk VNSMASTE acceoie SRCSWFREPLIN.BLITTo* dl 


EDTSWFREPLIN DISwF 

ba 000 EDT Ht 

3 $3 ] ZSBTTL "EDTSSRPL_LN = replace the current Line’ 

; 33 GLOBAL ROUTINE EDTSSRPL_LN ( ' Replace the current Line 

3 NEWLINE, ' Address of the new Line 

3 5 1 LEN i Length of the new Line 

3 ! : NOVALUE = 

; 1 '4¢ 

3 1 : } FUNCTIONAL DESCRIPTION: 

: 1 1/ Replace the 1 hag line. If the replacement Line is the same size as 

2 § }! the current Line, ust cop the new one in its place, otherwise, delete 

3 : ! the current Line and ins the new one. 

: 5 | FORMAL PARAMETERS: 

; 109 : NEWLINE a pointer to the new Line 

; 199 1/ LEN its Length 

; 110 1! 

3 He s ! : IMPLICIT INPUTS: 

; 118 6 : 1 i EDTSSA_WK_L 

; 61146 rf: 1! EDTS$G_WK_MODFD 

3 «115 mak EDTSS$L_LNO 

3 1'8 § 1! EDTSSA_ CUR_BUF 

3 4 eet : EDTS$A_WK_BuK 

; 119 0689 | IMPLICIT OUTPUTS: 

> 121 0691 1 | EDTSSA_WK_LN 

3s 3 § +244 1! EDTS$A_CUR_BuF 

eS 0695 1! EDTSS$A_ UK 

; ; $ boos : EDTSSL~ WK “INSCNT 

: 126 0696 1 | ROUTINE VALUE: 

3 \¢f 697 1! 

a SB Lh an 

> 1 $80 1 ' SIDE EFFECTS: 

ett b702 1 | NONE 

: 438 708 | | 

Shea Bk | 

; 706 BEGIN 

. 3s 70 care ROUTIN 

; 139 70 TSSDEL TCURLN : NOVALUE, 

3; 140 71 TSSINS_LN : NOVALUE, 

: ie) 4 EDISSRD. PRVLN; 

; 488 18 EXTERNAL | 

3 (1446 714 EDTSSA_WK_LN : REF LIN_BLOCK, ! Pointer to current Line 

; «(145 715 EDTS$G_WK MODFD, : rAee she} cet ine bucket was modified 

; 146 6 EDTS$L_LNOO : LNOVECTOR (14) ' 48-bit Line numbers 

: 16 71 EDT$$A~CUR_BUF : REF TBCB_BLOCK, i Eeefone® text buffer control block 
| 
| 


PORES IN a eT BE Ne ie Be ae Reece tare: | 
VG 
EDTSWFREPLIN SWFREPLIN - th t li é- -1984 02:13: -11 .0- 

er 4 44 replace the current Line 16-Sep 1384 96:13:03 VAX-11 Bliss-32 V4.0-74 Page 4 


DT$wW L 
DTSSRPL_LN = replace the current Line 14-Sep- DISKSVMSMASTER:CEDT.SRCJWFREPLIN.BLI;1 (3) 
4 71 EDTSSA_WK BUK : REF BLOCK CWF_BUKT_SIZE, BYTE] FIELD (WFB_FIELDS), 
rk 7? EDTS$SA_SEC_POS, ' Select position” 
0 7 EDT$$G_SCR_REBUILD, ! 1 = don’t touch the screen data base 
1 f EDTSSL_WK_INSCNT : LN_BLOCK; ! Number of records inserted during this insert sequence 
¢ 7 LOCAL 
4 7 SAVE_LIN : LN_BLOCK, 
5 f ony .seL os, 
5 7 OLD LEN, ! Length of the old Line 
7 SOURCE 
7 REMAINING 
7 SAVE _REBUILD; 
61 7 
¢ 7 + 
6 7 ! Check for a replacement which does not change the Length of the 
64 7 ! Line, and leave the work-file block structure unaltered. This 
65 7 } is not done only for speed; EDT will break if it is removed. 
6? "  OLDLLEN = .EDTSSA_WK_LN CLIN_LENGTH; 


IF (.OLD_LEN EQL .LEN) 
THEN 


| 

| 

| 

| 

BEGIN | 

EDTSSCPY_ MEM (.LEN, .NEWLINE, EDTS$A_WK_LN CLIN_TEXT]); 

EDT$$G_WR_MODFD = 1; 
RETURN: 

ND; 
| 


SANG 


'¢ 


NO nnn —owe 


~ 


PDP PSSST EPP E EE 


' Check for a pagsoeenens which neither empties the block nor causes it 
' to overflow. Do such a repl:cement directly in the block, without 
calling the more general routines which delete and insert Lines. 


+ Pe Pe RP 


co 
_ 
SSN 


+ .LEN) LSS WF_BUKT_SIZE) AN 
EDTSSA Wk BUK CWFBLEND) AN 


IF (((, EDTSSA_WK_BUK Fret END] = .OLD 
_FIXED_SIZE)) 


CBIR EaCR RSet hg aS a 
HEN pp ™ = 

* BEGIN 

; Update the character count for this buffer. 

ie EDTSSA_CUR_BUF CTBCB_CHAR_COUNT] = .EDTSSA_CUR_BUF CTBCB_CHAR_COUNT] = .OLD_LEN + .LEN; 


i Make room in the block for the Line. This may require either increasing or decreasing 
the amount of space now available. 


D : 
D 


SN NN 


WN OOONA UNE WN $0 ODNAUE WN $0 OBNOUE WN (CO OONOU EWU 


Se 
AOOm 
Sis SF 
AANA SE AAAI MAI 


N 
aon 


SIZE = .OLD_LEN + LIN FIXED SIZE + 1 
SOURCE = CHSPLUS (.EDTS$A_WR LN aS? 
REMAINING = .EDT$$SA_Wk BUR COFB END 

EDTS$A_WK_B $SA_uk 


WFB_ENDJ~- .OLD_LEN + .CEN; 


ee a a ee le lh a ee ee a a ed 


RAWLS SSLESLESLSESELERFAN 


E); 
- ‘gti CUR_BUF CTBCB_LINE_ADDR] - .SIZE; 
UK CWFB_ENDJ = .EDT BUK 


IF (.REMAINING NEQ 0) : 
THEN 


EDTSSCPY_MEM (.REMAINING, .SOURCE, .EDTSSA_WK_LN + .LEN + LIN_FIXED_SIZE + 1); 


Se Be Oe Oe Oe Se He Oe Be Se Se Se Se Fe Se Ge Se Oe Se Se Oe Te Be Se Se Se Se Se Ss Se Ss Ge Ss Se Se Se Ss SF Se Se Ss Fe Se Se Ss Ss Se Se Fe Oe Oe Se oe Se Se Oe Ge 


eee mn 
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EPLIN E Oeaes 
E «SRCJWFREPLIN.BLI;1 (3) 


== 


D 14 
FREPLIN = replace the current Line 16-Sep-1 70 VAX-11 s- 
Ht LN = replace the current Line 14- ~3ep =| 382 98: 38: 93 yi SK$V neh Ste 


EDTSSA_WK_LN CLIN_LENGTH] = .LEN: 
Showa T.LEN ED SCPY_MEM’( Clin, .NEWLINE, EDTSS$A_WK_LN CLIN_TEXTJ)); 
RE 


32 V4. 
R:CEDT 


se 
y oe 


DFO = 1; 


~ 


ENDS 
1+ 
This is a complex case. Delete the old Line and insert the new one. 
; MOVEL INE (EDTS$A_Wk LN. EIN NUM], SAVE_LIN); 


AVE ~SELPOS = -EBTSSA_SEL_POS: 
ates, TS, EtR REBUILD; 


ee ee A 


oY 
T 
NUMBER ONE, EDTSSL_WK_INSCNT); 
TSSINS_LN (. NEWLINE, LENS; 
TSS$RD_Pry 
T 
T 
Vv 


> 


$36. SCR. RE EBUILD : ti REBUILD; 
A-SEL-POS = LPos; 
veh Ine (SAVE _LIN, wEDTSSA -WK_LN CLIN_NUM]); 


D; ! of routine EDTSSRPL_LN 


MEUM OOONOUNES WH" OOONOu h-4 


MroNoNoNoNNNn ] 3 
AUEUN—OOONOUS WI 


woonoono 


ooo 

> > > > i! 
oO 

o 


1 


-TITLE EDTSWFREPLIN EDTSWFREPLIN - replace the current 


-EXTRN eo Tespet ia EDTSSINS_LN 


Py ne 
.IDENT \V04-000\ 
EXTRN EDTS$ DOPRVL EDTSSA_WK_LN 
EXTRN OTS K MOD D 
-EXTRN EDTSSL_L LNOO EDT$SA_CUR_BUF 
-EXTRN EDTS$$A~WK_BUK EDTSSA_ SEL_POS 
EXTRN EDT$$G-SCR_REBUI 
EXTRN EDTSSL “or “INSCNT 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 ~ ENTRY EO TSSROL LN, Save R2,R3,R4,R5,R6,R7,R8,R9,—- = 0663 
5B 000000006 00 9€ 9002 MOVAB EDT$$G_SCR_REBUILD, R11 : 
SA 900000006 00 9E 990 MOVAB EDTS$A~CUR~BUF, R10 ; 
59 000000006 9 19 MOV FARSI GORD? RO ; 
25 9 ¢ 001 SUBL2  # $F ; 
000000006 p 1A MOVL EDf$$A_WK_LN, R7 : 0737 
5 67 9A 00021 MOVZBL (R7), agtoaten ; 
5 08 AC 00 00024 MOVL LEN, : 0739 
5 56 D1 8 CMPL  OLD_LEN, R8 ; 
g if B BNEQ ‘1 ; 
07 +A? 04 BC : MOVC3 RB, @NEWLINE, 7(R7) : 074 
1 11 BRB 3$ : 074 
52 000000006 D 1$ MOVL. EDTS$A_WK_BUK R2, : 075 
53 06 A C ¢ SUBL3. 0 Dt N, &(R25, ; 
3 C 4 ADDL R8, 3 
00000200 =F D1 44 CMPL = R33, ; 12 F 
1 8 48 BGEQ = 4 : 
50 6A D 4D MOVL § EDTS$A_CUR_BUF, RO : 0754 


EDTSWFREPLIN DISWFREPLIN = replace the current Line 16-50 -1984 :0 VAX-11 Bliss-32 V4.0-74 
the th OT SSRPL_LLN = replace the current Line 1 ~300 71382 6: 33: 93 DISKSVMSMASTER: CEDT.SRCJWFREPLIN.BLI; — v04 
06 A2 6 : 0 CMPL =e (RO), 4(R2) ; : 
4 4 BEQL «6s 4$ : ; 
30 6A D § MOVL  EDTS$A_CUR_BUF, RO : ; 
60 D CMPL = (RO), PF : : 
40 1 ¢ BEQL «6s 4$ : ; 
51 AD i MOVL. EDTS$$A_CUR_BUF, R1 : ; 
50 16 Al 6 C 6 SsUBL OLD. LER, 30k} (R15, RO : : 
1€ «AI gi 66 ADDL3 = RB, “RO, ; : 
08 As 68 MOV 8(R6), si : : 
4 50 ¢ oF ADDL3 SIZE, R7, SOURCE : ; 
b ” ef f ie art sie mek EMAINING : ; 
04 A2 3 D bore MOVL 34° 4 cro : ; 
D 90 : TSTL REMAINING F ; 
1 0 BEQL 2$ ; ° 
08 A847 64 é 90 4 MOVC3) sR MAININ G, (SOURCE), 8(R8)CR7] ; : 
67 O8A 2$: MOVB. RB, (R7) : : 
07 +A? 04 BC : 00 p MOVC3 RB, @NEWLINE, 7(R7) : ; 
6 58 90 0009 MOVE RB, _-(R3) : : 
000000006 00 01 b0 009% 3$: MOVL #1, EDT$$G_wWK_MODFD ; : 
6E 01 «A? 06 3 00% 4$: MOVC3 #6, 1(R7), SAVE_LIN : : 
23 000000006 00 00 000A MOVL EDTS$$A_SEL_POS, “SAVE ; : 
2 6B D OOOAA MOVL § EDTS$$G~SCR-REBU ILD, SAVE’ PREBUILD ; : 
01 DO OO00AD MOVL #1, EDTS$$G~SCR_REBUILD ; : 
000000006 0 00 FB 000B0 CALLS #0, EDTSS$DEL_CORLN ; : 
50 69 D0 00087 MOVL FIRST WOR RD, SAVE : ; 
69 D7 OOOBA DECL FIRST“WORD F : 
50 69 D1 000BC CMPL “eye RD, SAVE : : 
03 18 OOBF BLEQU 5$ ; ; 
04 Ad B7 000C1 DECW  NEXT_WO : : 
58 DD b00¢4 5$: PUSHL R8 F : 
04 AC DD 0006 PUSHL Date. ; 
000000006 00 02 FB 000C9 CALLS #2, EDTSSIN NS ath F 
000000006 00 0 FB 69009 CALLS #0, EDTSS$RD : 
6B 52 pO 00007 MOVL § SAVE_REBU itp, REbTS$6 SCR_REBUILD ; 
000000006 00 53 D0 OOODA MOVL SAVE gpebPO S EDTSS$A_SEL_Pos ; 
50 000000006 00 00 OO0E| MOVL EDTSSA RO : 
01 aAOd 6E 06 3 QOE8 MOVC3 6, SAVE ‘rin FRO) : 
4 OO0ED ET : 


; Routine Size: 238 bytes, Routine Base: _EDTSCODE + 0000 


227 0797 1 
; 228 0798 1 !<BLF/PAGE> 


F 14 
EDTSWFREPLIN EDTSWFREPLIN = replace the current Line 16-Sep-1984 02:13:0 VAX-11 Bliss-32 V 
04-000 EDTSSRPL_LN - replace the current Line b-Sep- 198 95:38:03 DISKSVMSMASTER: a 
: 3s 0890 } END ! of module EDTSWFREPLIN 
: 232 801 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
; _EDTSCODE 238 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Ee ee, ae ee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; S5$DUA28: (EDT. SRCJEDT.L32;1 377 48 1 4 0:00.2 
$ mitt ‘FEB EDT.SR ReapS PSECTS.L32;1 2 1 36 : $000.4 


COMMAND QUALIFIERS 


~~ 


238 arte ; 0 data bytes 
:20.0 


Run Time 
Elapsed. fees 
Lines/CPU Min: 24 
Sey Ne tite 11904 
Memor oY Ut sed: 121 pages 
Compilation Complete 


1 SRCSWFREPLIN. BLI; rise 


/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:WFREPLIN/OBJ=OBJ$:WFREPLIN MSRCS$:WFREPLIN.BLI/UPDATE=(ENHS:WFRE 


7 
(4) 
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